object History: THistory Left = 303 Top = 96 Width = 435 Height = 300 Caption = 'Command History' Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Position = poScreenCenter OnActivate = FormActivate OnShow = FormShow PixelsPerInch = 96 TextHeight = 16 object Panel1: TPanel Left = 0 Top = 25 Width = 427 Height = 248 Align = alClient BevelOuter = bvLowered TabOrder = 0 object HistList: TDrawGrid Left = 1 Top = 1 Width = 425 Height = 246 Align = alClient Color = clBtnFace ColCount = 1 DefaultColWidth = 1024 DefaultRowHeight = 15 FixedCols = 0 FixedRows = 0 Options = [goRowSelect] ScrollBars = ssVertical TabOrder = 0 OnClick = HistListClick OnDblClick = HistListDblClick OnDrawCell = HistListDrawCell OnKeyDown = OutStrKeyDown OnMouseDown = HistListMouseDown end end object Panel2: TPanel Left = 0 Top = 0 Width = 427 Height = 25 Align = alTop BevelOuter = bvNone TabOrder = 1 object Panel3: TPanel Left = 0 Top = 0 Width = 26 Height = 25 Align = alLeft BevelOuter = bvLowered TabOrder = 0 object SendBtn: TSpeedButton Tag = 1 Left = 1 Top = 0 Width = 24 Height = 25 Hint = 'Send Command|' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303 333333333333337FF3333333333333903333333333333377FF33333333333399 03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999 99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999 99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099 03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003 33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333 33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333 3333777777333333333333333333333333333333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SendBtnClick end end object Panel4: TPanel Left = 52 Top = 0 Width = 375 Height = 25 Align = alClient BevelOuter = bvLowered TabOrder = 1 object OutStr: TMyEdit Left = 1 Top = 1 Width = 373 Height = 23 Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier' Font.Style = [] ParentFont = False TabOrder = 0 OnKeyDown = OutStrKeyDown Align = alClient end end object Panel5: TPanel Left = 26 Top = 0 Width = 26 Height = 25 Align = alLeft BevelOuter = bvLowered Caption = 'Panel5' TabOrder = 2 object EditBtn: TSpeedButton Tag = 1 Left = 1 Top = 0 Width = 24 Height = 25 Hint = 'Edit Command|' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000 000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F 00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B 0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F 0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF 00333377737FFFFF7733333033000000033333373377777773330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = EditBtnClick end end end end